program testConstantFolding;

class testConstantFolding
BEGIN
   
   VAR ee : integer;

FUNCTION testConstantFolding;
BEGIN
   ee := 1 + 2 + 3
END

END
.

